<script>on mouseUpif the hilite of background button "a lpha" is true thenset the hilite of background button "a lpha" to falseelseset the hilite of background button "a" to falseset the hilite of background button "a lpha" to trueend ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>184</top>
<right>390</right>
<bottom>202</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>14</textSize>
<textStyle>condense</textStyle>
<textStyle>bold</textStyle>
<name>a</name>
<script>on mouseUpif the hilite of background button "a" is true thenset the hilite of background button "a" to falseelseset the hilite of background button "a lpha" to falseset the hilite of background button "a" to trueend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>50</top>
<right>106</right>
<bottom>341</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Genliste</name>
<script>on mouseUpglobal Info, Suchgenif Info is true thenput false into Infoset lockScreen to trueget word 2 of the clickLineput word 1 of line it of field "Genliste" & ": " into field "Geninfo"get word 2 of line it of field "Genliste"if it is empty thenput "No information for this gene available!" after field "Geninfo"elseput line it of field "Infoliste" of card "Genauswahl" after field "Geninfo"end ifelseget word 2 of the clickLineput word 1 of line it of field "Genliste" into Suchgenif the hilite of background button "diploid" is true thenshow background button "gene gene"show background button "GENE GENE 1"show background button "GENE gene 2"put "How shall the gene be represented in the strain: homozygously mutated; homozygously wild type; heterozygously?" into field "Geninfo"elseshow background button "gen"show background button "gene-allele"show background button "GENE (= not gene)"show background button "not gene-allele"put "How shall the gene be represented in the strain?" into field "Geninfo"end ifend ifend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>50</top>
<right>255</right>
<bottom>226</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Suchauswahl</name>
<script>on mouseUpdelete the clickLineend mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>255</left>
<top>26</top>
<right>336</right>
<bottom>50</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Gene Info:</name>
<script>on mouseUpglobal Info, L├╢schenset lockScreen to trueif L├╢schen is true thenput false into L├╢schenhide button "Cancel"hide card field "L├╢schanleitung"end ifput true into Infoput "Choose gene in the list of genes for further information." into field "Geninfo"set lockScreen to falseend mouseUp</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>255</left>
<top>50</top>
<right>425</right>
<bottom>179</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Geninfo</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>246</top>
<right>399</right>
<bottom>264</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gen</name>
<script>on mouseUpglobal Suchgenset hilite of background button "gen" to trueif the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Suchgen after field "Suchauswahl"end repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenput char Buchstabe of Suchgen after field "Suchauswahl"end repeatend ifput return after field "Suchauswahl"hide background button "gen"hide background button "gene-allele"hide background button "GENE (= not gene)"hide background button "not gene-allele"set hilite of background button "gen" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>292</top>
<right>490</right>
<bottom>310</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GENE (= not gene)</name>
<script>on mouseUpglobal Suchgenset hilite of background button "GENE (= not gene)" to trueput "not " after field "Suchauswahl"if the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Suchgen after field "Suchauswahl"end repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenput char Buchstabe of Suchgen after field "Suchauswahl"end repeatend ifput return after field "Suchauswahl"hide background button "gen"hide background button "gene-allele"hide background button "GENE (= not gene)"hide background button "not gene-allele"set hilite of background button "GENE (= not gene)" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>277</top>
<right>443</right>
<bottom>295</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gene gene</name>
<script>on mouseUpglobal Suchgenset hilite of background button "gene gene" to trueput "homozygot " after field "Suchauswahl"if the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Suchgen after field "Suchauswahl"end repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenput char Buchstabe of Suchgen after field "Suchauswahl"end repeatend ifput " not " after field "Suchauswahl"if the CharToNum of char 1 of Suchgen >64 and the CharToNum ¬of char 1 of Suchgen <91 then -- dominantes GENif the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Suchgen >64 and the CharToNum ¬of char Buchstabe of Suchgen <91 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) + 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >64 and the CharToNum ¬of char Buchstabe of Suchgen <91 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) + 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatend ifelse -- rezessives genif the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Suchgen >96 and the CharToNum ¬of char Buchstabe of Suchgen <123 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) - 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >96 and the CharToNum ¬of char Buchstabe of Suchgen <123 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) - 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatend ifend ifput return after field "Suchauswahl"hide background button "gene gene"hide background button "GENE GENE 1"hide background button "GENE gene 2"set hilite of background button "gene gene" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>299</top>
<right>444</right>
<bottom>317</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GENE GENE 1</name>
<script>on mouseUpglobal Suchgenset hilite of background button "GENE GENE 1" to trueput "not " after field "Suchauswahl"if the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Suchgen after field "Suchauswahl"end repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenput char Buchstabe of Suchgen after field "Suchauswahl"end repeatend ifput return after field "Suchauswahl"hide background button "gene gene"hide background button "GENE GENE 1"hide background button "GENE gene 2"set hilite of background button "GENE GENE 1" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>321</top>
<right>445</right>
<bottom>339</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>GENE gene 2</name>
<script>on mouseUpglobal Suchgenset hilite of background button "GENE gene 2" to trueput "heterozygot " after field "Suchauswahl"if the CharToNum of char 1 of Suchgen >64 and the CharToNum ¬of char 1 of Suchgen <91 thenput true into dominantput "dominant " after field "Suchauswahl"end ifif the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4if the CharToNum of char Buchstabe of Suchgen >96 and the CharToNum ¬of char Buchstabe of Suchgen <123 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) - 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >96 and the CharToNum ¬of char Buchstabe of Suchgen <123 thenput numToChar of ((charToNum of char Buchstabe of Suchgen) - 32) ¬after field "Suchauswahl"elseput char Buchstabe of Suchgen after field "Suchauswahl"end ifend repeatend ifif dominant is not true thenput " and " after field "Suchauswahl"if the number of chars of Suchgen >4 thenrepeat with Buchstabe = 1 to 4put char Buchstabe of Suchgen after field "Suchauswahl"end repeatrepeat with Buchstabe = 5 to the number of chars of Suchgenif the CharToNum of char Buchstabe of Suchgen >47 and the CharToNum ¬of char Buchstabe of Suchgen <58 thenput char Buchstabe of Suchgen after field "Suchauswahl"elseexit repeatend ifend repeatelserepeat with Buchstabe = 1 to the number of chars of Suchgenput char Buchstabe of Suchgen after field "Suchauswahl"end repeatend ifend ifput return after field "Suchauswahl"hide background button "gene gene"hide background button "GENE GENE 1"hide background button "GENE gene 2"set hilite of background button "GENE gene 2" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>108</left>
<top>288</top>
<right>291</right>
<bottom>303</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search for Strain's Name</name>
<script>on mouseUpset lockScreen to trueset hilite of background button "Search for Genes" to falseset hilite of background button "Search Commentary" to falseset hilite of background button "Search for Plasmid" to falseset hilite of background button "Search for Strain's Name" to trueshow button "Abdeckung"show button "Abdeckung2"show button "Abdeckung3"show button "Search String:"show card field "Suchtext"hide background button "a/a"hide background button "a/a homozygot"hide background button "?/?"hide field "a/a"hide field "a/a homozygot"hide background button "Gene Info:"put empty into card field "Suchtext"put "Search for identity (partial or complete) with the name of the strain!" into field "Geninfo"set lockScreen to falseclick at the loc of card field "Suchtext"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>108</left>
<top>270</top>
<right>257</right>
<bottom>286</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search for Genes</name>
<script>on mouseUpset lockScreen to trueset hilite of background button "Search for Strain's Name" to falseset hilite of background button "Search Commentary" to falseset hilite of background button "Search for Plasmid" to falseset hilite of background button "Search for Genes" to trueif the hilite of background button "diploid" is true thenset the hilite of background button "diploid" to falsehide background button "a/a"hide background button "a/a homozygot"hide background button "?/?"hide field "a/a"hide field "a/a homozygot"show background button "a"show background button "a lpha"show background button "Abdeckung"end ifput "Click gene first, then choose ΓÇ£geneΓÇ¥ (search for mutant allele) or ΓÇ£GENEΓÇ¥ (search for wild type allele)." into field "Geninfo"put return & "Only haploid strains will be searched!" after field "Geninfo"hide button "Abdeckung"hide button "Abdeckung2"hide button "Abdeckung3"hide button "Search String:"hide card field "Suchtext"show background button "Gene Info:"end mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>109</left>
<top>323</top>
<right>280</right>
<bottom>339</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search Commentary</name>
<script>on mouseUpset lockScreen to trueset hilite of background button "Search for Genes" to falseset hilite of background button "Search for Strain's Name" to falseset hilite of background button "Search for Plasmid" to falseset hilite of background button "Search Commentary" to trueshow button "Abdeckung"show button "Abdeckung2"show button "Abdeckung3"hide background button "Gene Info:"show button "Search String:"show card field "Suchtext"hide background button "a/a"hide background button "a/a homozygot"hide background button "?/?"hide field "a/a"hide field "a/a homozygot"put empty into card field "Suchtext"put "Search for text in the commentary (including search for the origin, alternate names, and parts of the name of the strain or a plasmid)" into field "Geninfo"set lockScreen to falseclick at the loc of card field "Suchtext"end mouseUp</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>107</left>
<top>226</top>
<right>254</right>
<bottom>269</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>7255</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Start Search</name>
<script>on mouseUpglobal Suchstatusif the hilite of background button "Search for Genes" is true thenif field "Suchauswahl" is empty thenanswer "No gene specified as a search criterion"exit mouseUpelseset lockMessages to trueset cursor to 4if Suchstatus is "neu" thenset lockScreen to truego card "Findetemplate"doMenu "Copy Card"go card "Stammsammlung"doMenu "Paste Card"put "Created" && the date & return into field "Daten"set lockScreen to falseset the name of this card to "Findeinter" && (word 3 of the id ¬of this card)put the short name of this card into Suchstatusset the cantdelete of this card to falseput true into Neukarteput empty into field "Suchergebnis"elsego card Suchstatusend ifset lockMessages to falseif the hilite of background button "diploid" of card "Stammsuche" is true then-- Diploide suchenrepeat with Karte = 1 to (the number of cards of background "Stammlisten") -1put field "Liste" of card "Liste" && Karte of background "Stammlisten" into field "Lager"if the hilite of background button "a/a" of card "Stammsuche" is true then -- heterozygote Diploideget research(" a/ª ",field "Lager","nometa")put research(" ª/a ",field "Lager","nometa") into field "Lager"set cursor to 4put it after field "Lager"else if the hilite of background button "a/a homozygot" of card "Stammsuche" is true then-- homozygote Diploideget research(" a/a ",field "Lager","nometa")put research(" ª/ª ",field "Lager","nometa") into field "Lager"set cursor to 4put it after field "Lager"else if the hilite of background button "?/?" of card "Stammsuche" is true then -- beliebige Diploideput research(" [ªa ]/[ªa ] ",field "Lager") into field "Lager"set cursor to 4end if-- alle Diploiden ins Suchfeldrepeat with Suchzeile = 1 to the number of lines of field "Suchauswahl" of card "Stammsuche"-- Suchzeile für Suchzeile durchgehenif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"not" thenput (space & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"put ("/" & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"elseif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"homozygot" thenput (space & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"put ("/" & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"put (space & word 4 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"put ("/" & word 4 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"elseif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"heterozygot" thenif word 2 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"dominant" thenput (space & word 3 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Dominanz"put ("/" & word 3 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortget research(Suchwort,field "Dominanz","invert nometa")put ("/" & word 3 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Dominanz"put (space & word 3 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Dominanz","invert nometa") into field "Lager"put it after field "Lager"elseput (space & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortget research(Suchwort,field "Lager","nometa")put ("/" & word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"put it after field "Lager"put (space & word 4 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortget research(Suchwort,field "Lager","nometa")put ("/" & word 4 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"put it after field "Lager"end ifend ifend ifend ifif field "Lager" is empty then exit repeatend repeatset cursor to 4if field "Lager" is not empty thensort field "Lager"put true into Trefferrepeat with Zeile = 1 to the number of lines of field "Lager"if word 1 of line Zeile of field "Lager" is "00" thenput line Zeile of field "Lager" & return after field "Suchergebnis"put Karte & "/ 0" into word 1 of the last line of field "Suchergebnis"elseput (Karte - 1) & "/" & line Zeile of field "Lager" & return after field "Suchergebnis"end ifend repeatend ifend repeatelse-- Haploide suchenrepeat with Karte = 1 to (the number of cards of background "Stammlisten") -1put field "Liste" of card "Liste" && Karte of background "Stammlisten" into field "Lager"repeat with Suchzeile = 1 to the number of lines of field "Suchauswahl" of card "Stammsuche"-- Suchzeile für Suchzeile durchgehen, ab 2. Suchwort die-- alten Ergebnisse (Feld "Lager") durchsuchenif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"not" thenput space & (word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"elseif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"not=" thenput space & (word 2 of line Suchzeile of field "Suchauswahl" of ¬card "Stammsuche") & space into Suchwortput research(Suchwort,field "Lager","invert nometa") into field "Lager"elseif word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche" is ¬"=" thenput space & (word 2 of line Suchzeile of field "Suchauswahl" of card "Stammsuche")¬& space into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"elseput space & (word 1 of line Suchzeile of field "Suchauswahl" of card "Stammsuche")¬into Suchwortput research(Suchwort,field "Lager","nometa") into field "Lager"end ifend ifend ifif field "Lager" is empty then exit repeatend repeat-- PT-Sucheif field "Lager" is empty then next repeatif the hilite of background button "a" of card "Stammsuche" is true thenput research(" a ",field "Lager","nometa") into field "Lager"elseif the hilite of background button "a lpha" of card "Stammsuche" is true thenput research(" ª ",field "Lager","nometa") into field "Lager"else-- kein PT angegeben: Diploide ausschließenput research(" a/ª ",field "Lager","invert nometa") into field "Lager"put research(" ª/a ",field "Lager","invert nometa") into field "Lager"end ifend if-- Alle Karten einzeln durchsuchen-- Daten mit Kartennummer übertragenset cursor to 4if field "Lager" is not empty thenput true into Trefferrepeat with Zeile = 1 to the number of lines of field "Lager"if word 1 of line Zeile of field "Lager" is "00" thenput line Zeile of field "Lager" & return after field "Suchergebnis"put Karte & "/ 0" into word 1 of the last line of field "Suchergebnis"elseput (Karte - 1) & "/" & line Zeile of field "Lager" & return after field "Suchergebnis"end ifend repeatend ifend repeatend ifend ifelseif the hilite of background button "Search for Strain's Name" is true thenif card field "Suchtext" is empty thenanswer "No search string entered"exit mouseUpend ifput the number of chars of card field "Suchtext" into Namenlängeif Namenlänge > 15 thenanswer "Strain names have a maximum of 15 chars!"exit mouseUpend ifset cursor to 4set lockMessages to trueput space into Suchtextrepeat with Buchstabe = 1 to Namenlängeif char Buchstabe of card field "Suchtext" is return thenput " " after Suchtextnext repeatend ifif char Buchstabe of card field "Suchtext" is space thenput " " after Suchtextelseput char Buchstabe of card field "Suchtext" after Suchtextend ifend repeatrepeat with Lücke = Namenlänge to 15put space after Suchtextend repeatif Suchstatus is "neu" thenset lockScreen to truego card "Findetemplate"doMenu "Copy Card"go card "Stammsammlung"doMenu "Paste Card"put "Erstellt am" && the date & return into field "Daten"set lockScreen to falseset the name of this card to "Findeinter" && (word 3 of the id ¬of this card)put the short name of this card into Suchstatusset the cantdelete of this card to falseput true into Neukarteelsego card Suchstatusend ifset lockMessages to falserepeat with Karte = 1 to (the number of cards of background "Stammlisten") -1put field "Liste" of card "Liste" && Karte of background "Stammlisten" into field "Lager"put research(Suchtext,field "Lager","nometa") into field "Lager"set cursor to 4if field "Lager" is not empty thenput true into Trefferrepeat with Zeile = 1 to the number of lines of field "Lager"if word 1 of line Zeile of field "Lager" is "00" thenput line Zeile of field "Lager" & return after field "Suchergebnis"put Karte & "/" & " " & "0" into word 1 of the last line of field "Suchergebnis"elseput (Karte - 1) & "/" & line Zeile of field "Lager" & return after field "Suchergebnis"end ifend repeatend ifend repeatelseif the hilite of background button "Search Commentary" is true thenif card field "Suchtext" is empty thenanswer "No search string entered"exit mouseUpend ifset cursor to 4put the number of chars of card field "Suchtext" into Namenlängeset lockMessages to trueput empty into Suchtextrepeat with Buchstabe = 1 to Namenlängeif char Buchstabe of card field "Suchtext" is return thenput " " after Suchtextnext repeatend ifif char Buchstabe of card field "Suchtext" is space thenput " " after Suchtextelseput char Buchstabe of card field "Suchtext" after Suchtextend ifend repeatset lockMessages to trueif Suchstatus is "neu" thenset lockScreen to truego card "Findetemplate"doMenu "Copy Card"go card "Stammsammlung"doMenu "Paste Card"put "Erstellt am" && the date & return into field "Daten"set lockScreen to falseset the name of this card to "Findeinter" && (word 3 of the id ¬of this card)put the short name of this card into Suchstatusset the cantdelete of this card to falseput true into Neukarteelsego card Suchstatusend ifset lockMessages to falserepeat with Karte = 1 to (the number of cards of background "Stammlisten") -1put field "Liste" of card "Liste" && Karte of background "Stammlisten" into field "Lager"put research(Suchtext,field "Lager","nometa") into field "Lager"set cursor to 4if field "Lager" is not empty thenput true into Trefferrepeat with Zeile = 1 to the number of lines of field "Lager"if word 1 of line Zeile of field "Lager" is "00" thenput line Zeile of field "Lager" & return after field "Suchergebnis"put Karte & "/" & " " & "0" into word 1 of the last line of field "Suchergebnis"elseput (Karte - 1) & "/" & line Zeile of field "Lager" & return after field "Suchergebnis"end ifend repeatend ifend repeatelseif the hilite of background button "Search for Plasmid" is true thenif card field "Suchtext" is empty thenanswer "No search string entered"exit mouseUpend ifset cursor to 4put the number of chars of card field "Suchtext" into Namenlängeset lockMessages to trueput tab into Suchtextrepeat with Buchstabe = 1 to Namenlängeif (char Buchstabe of card field "Suchtext" is return) or (char Buchstabe of card field "Suchtext" is space) thenput " " after Suchtextelseput char Buchstabe of card field "Suchtext" after Suchtextend ifend repeatset lockMessages to trueif Suchstatus is "neu" thenset lockScreen to truego card "Findetemplate"doMenu "Copy Card"go card "Stammsammlung"doMenu "Paste Card"put "Created" && the date & return into field "Daten"set lockScreen to falseset the name of this card to "Findeinter" && (word 3 of the id ¬of this card)put the short name of this card into Suchstatusset the cantdelete of this card to falseput true into Neukarteelsego card Suchstatusend ifset lockMessages to falserepeat with Karte = 1 to (the number of cards of background "Stammlisten") -1put field "Liste" of card "Liste" && Karte of background "Stammlisten" into field "Lager"put research(Suchtext,field "Lager","nometa") into field "Lager"set cursor to 4if field "Lager" is not empty thenput true into Trefferrepeat with Zeile = 1 to the number of lines of field "Lager"if word 1 of line Zeile of field "Lager" is "00" thenput line Zeile of field "Lager" & return after field "Suchergebnis"put Karte & "/" & " " & "0" into word 1 of the last line of field "Suchergebnis"elseput (Karte - 1) & "/" & line Zeile of field "Lager" & return after field "Suchergebnis"end ifend repeatend ifend repeatelseanswer "Search mode not defined!"end ifend ifend ifend ifif Treffer is not true thenif Neukarte is true thenset lockMessages to truedoMenu "Delete Card"put "neu" into Suchstatusset lockMessages to truego card "Stammsuche"end ifanswer "No hit with current search criteria!"exit mouseUpelseput "Modified" && the date into line 2 of field "Daten"if Neukarte is true thenput "Card will be deleted (after check-back) on closing, if it has not been saved!" into field "Dialog"end ifend ifend mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>269</top>
<right>450</right>
<bottom>287</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>gene-allele</name>
<script>on mouseUpglobal Suchgenset hilite of background button "gene-allele" to trueput "=" && Suchgen & return after field "Suchauswahl"hide background button "gen"hide background button "gene-allele"hide background button "GENE (= not gene)"hide background button "not gene-allele"set hilite of background button "gene-allele" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>315</top>
<right>476</right>
<bottom>333</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>not gene-allele</name>
<script>on mouseUpglobal Suchgenset hilite of background button "not gene-allele" to trueput "not=" & space & Suchgen & return after field "Suchauswahl"hide background button "gen"hide background button "gene-allele"hide background button "GENE (= not gene)"hide background button "not gene-allele"set hilite of background button "not gene-allele" to falseput "Specify further search criteria or start search" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>109</left>
<top>305</top>
<right>255</right>
<bottom>321</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search for Plasmid</name>
<script>on mouseUpset lockScreen to trueset hilite of background button "Search for Genes" to falseset hilite of background button "Search for Strain's Name" to falseset hilite of background button "Search Commentary" to falseset hilite of background button "Search for Plasmid" to trueshow button "Abdeckung"show button "Abdeckung2"show button "Abdeckung3"hide background button "Gene Info:"show button "Search String:"show card field "Suchtext"hide background button "a/a"hide background button "a/a homozygot"hide background button "?/?"hide field "a/a"hide field "a/a homozygot"put empty into card field "Suchtext"put "Text search for plasmids (entered name has to fit exactly)" into field "Geninfo"set lockScreen to falseclick at the loc of card field "Suchtext"end mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>206</top>
<right>378</right>
<bottom>221</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>a/a</name>
<script>on mouseUpset the hilite of background button "a/a" to trueset the hilite of background button "a/a homozygot" to falseset the hilite of background button "?/?" to falseput "Only diploid yeast strains with a complete (ΓÇ£heterozygousΓÇ¥) mating type will be searched!" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>278</left>
<top>206</top>
<right>345</right>
<bottom>221</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>diploid</name>
<script>on mouseUplock screenif the hilite of background button "diploid" is true thenshow background button "a"show background button "a lpha"show background button "Abdeckung"hide background button "a/a"hide background button "a/a homozygot"hide background button "?/?"hide field "a/a"hide field "a/a homozygot"set the hilite of background button "diploid" to falseput "Only haploid strains will be searched!" into field "Geninfo"elsehide background button "a"hide background button "a lpha"hide background button "Abdeckung"show background button "a/a"show background button "a/a homozygot"show background button "?/?"show field "a/a"show field "a/a homozygot"set the hilite of background button "diploid" to truesend mouseUp to background button "a/a"end ifend mouseUp</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>244</top>
<right>425</right>
<bottom>259</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>?/?</name>
<script>on mouseUpset the hilite of background button "a/a" to falseset the hilite of background button "a/a homozygot" to falseset the hilite of background button "?/?" to trueput "Any diploid yeast will be searched! (Takes significantly longer than the other options!)" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>358</left>
<top>225</top>
<right>378</right>
<bottom>240</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>a/a homozygot</name>
<script>on mouseUpset the hilite of background button "a/a" to falseset the hilite of background button "a/a homozygot" to trueset the hilite of background button "?/?" to falseput "Only mateable diploid yeast strains with a ΓÇ£homozygousΓÇ¥ mating type will be searched!" into field "Geninfo"end mouseUp</script>
</part>
<part>
<id>37</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>376</left>
<top>206</top>
<right>446</right>
<bottom>220</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>icago</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name>a/a</name>
<script>on mouseUpsend mouseUp to background button "a/a"end mouseUp</script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>376</left>
<top>225</top>
<right>448</right>
<bottom>239</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>icago</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name>a/a homozygot</name>
<script>on mouseUpsend mouseUp to background button "a/a homozygot"end mouseUp</script>
